home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / SINIT.T < prev    next >
Text File  |  1991-02-16  |  14KB  |  195 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5. cndreq ife %s0 goto allreq;p?1 return
  6. sepreq if "!js0,/nul" lput "Path is required to end with path separator(/).\r\n" return
  7. allreq: if "js0,/nul/" lput "Path must not contain the sequence '/nul/'.\r\n" return
  8.  if "Js0,\\" lput "Path must use forward rather than backward slashes as path separators.\r\n" return
  9.  if "Js0,*?+;%" lput "Path must not contain any of these characters: '*?+;%'.\r\n" return
  10.  if "!js0,:/" lput "Path should include drive letter followed by path separator(<x>:/).\r\n" return
  11.  if "ps0,:" lput "Path must not begin with the character ':'.\r\n" return
  12.  if "ps0,/" lput "Path must not begin with the character '/'.\r\n" return
  13.  if "js0,//" lput "Path is not of the requested format.\r\n" return
  14.  split s0 ":" "" if "Jz1,:" lput "Path must contain only one occurence of ':'.\r\n" return
  15.  ife "%z0!=1" lput "Invalid drive specification - %z0\r\n" return;if f%s0 p?1 return
  16.  if "!f%z0:/nul" p?0 lput "Invalid drive specification - %z0\r\n" return
  17.  ife r nolog closerx;ki create -y %s0 ife r nolog closerx;if !f%s0 p?0 return
  18.  p?1 return
  19. main pv0 lput "\E[0m\E[2J\E[7mInitialization Customization\E[m\r\n\r\n"
  20.  set n0 ""; set n1 ""; set n2 ""; set n3 ""; set n4 ""
  21.  set n5 ""; set n6 ""; set n7 ""; set n8 ""; set n9 ""
  22.  set s3 "x";set dircx ""
  23.  while !%n1 accept n1 "Your \E[1mFirst\E[m name: "
  24.  while !%n2 accept n2 "Your \E[1mLast\E[m name: "
  25. initzone:
  26.  lput "\r\nHours Behind GMT:\r\n"
  27.  lput "\r\n EDT: 5   CDT: 6   MDT: 7   PDT: 8"
  28.  lput "\r\n EST: 6   CST: 7   MST: 8   PST: 9\r\n"
  29.  lput "\r\nNote: US Daylight Savings Time is in effect from the first"
  30.  lput "\r\n      Sunday in April until the last Sunday in October.\r\n\r\n"
  31.  accept s0 "Enter Number of Hours: ";setn s0 s0*60;sets s1 pz%s0
  32.  lput "\r\nSelect one:\r\n\n 1 - 8088/8086/80188/80186/Nec V20\r\n"
  33.  lput " 2 - 80286\r\n 3 - 80386(or SX)\r\n 4 - 80486\r\n O - other\r\n\n"
  34.  set s0 / while "!Js0,1234o0" acceptl1 s0 "Your Processor: "
  35.  ife "Js0,o0" goto nocalb;ife "Js0,23" set s2 750;ife is0,4 set s2 1100
  36.  if is0,1 set s2 400 lput "Please Round Processor Speed To Nearest Whole Number of Mhz(Enter 5 for 4.77Mhz)\r\n"
  37.  set s0 0 while "as0==0||Js0,." acceptl s0 "Processor Speed in Mhz: "
  38.  setn s0 s0*s2 sets s1 "%s1 pa%s0"
  39. nocalb:
  40.  lput \r\n set s0 "";while !Js0,yn acceptl1 s0 "Do you have tone dialing(y/n)? "
  41.  if is0,y while !Js3,yn acceptl1 s3 "Do you have call waiting(y/n)? "
  42.  ife is0,n set s2 "P";else ife is3,n set s2 "T";else set s2 "T*70W"
  43.  lput "\r\nYour date of birth and voice phone number are required to establish"
  44.  lput "\r\nyour identity when signing onto Wildcat Bulletin Boards.\r\n\n"
  45.  while !%n3 accept n3 "Your date of birth as MM-DD-YY: "
  46.  while !%n4 accept n4 "Your VOICE Phone Number as XXX-XXX-XXXX: "
  47.  lput "\r\nThe last four digits of your phone number are needed to establish your"
  48.  lput "\r\nidentity when signing onto Genesis or Odyssey Bulletin Boards.\r\n\n"
  49.  while !%n5 accept n5 "Last four digits of your phone number: "
  50.  lput "\E[m\E[2JThe long distance dialing prefix is usually one of the following numbers:\r\n"
  51.  lput "\r\n 1      - for your default long distance carrier"
  52.  lput "\r\n 102881 - for AT&T"
  53.  lput "\r\n 102221 - for MCI"
  54.  lput "\r\n 103331 - for Sprint\r\n"
  55.  lput "\r\nIf you have 'Equal Access,' you may determine your default carrier by dialing\r\n"
  56.  lput "\r\n 1-700-555-4141 (a recording will answer).\r\n"
  57.  lput "\r\nFor the Hayes AT command set, the following control characters can usually be"
  58.  lput "\r\nused in the long distance prefix:\r\n"
  59.  lput "\r\n, - pause for two seconds"
  60.  lput "\r\nW - wait for (another) dial tone"
  61.  lput "\r\n@ - wait for an answer and then silence\r\n\r\n"
  62.  set s0 "Long distance dialing prefix(typically '1')"
  63.  accept l "%s0 for \E[1mother\E[m area codes: "
  64.  accept m "%s0 for \E[1myour\E[m area code: "
  65.  set s0 "" while !Js0,yn acceptl1 s0 "Does your keyboard have 101 or more keys(Y/N)? "
  66.  ife is0,n sets s1 "%s1 pK0";else sets s1 "%s1 pK1"
  67.  set s0 x while !Js0,yn acceptl1 s0 "Do you have an EGA, VGA or snow-free CGA display?(Y/N)? "
  68.  if is0,y sets s1 "%s1 display warpdrive" display warpdrive;cls;display stat=off
  69.  :if is0,y set s0 x while !Js0,yn acceptl1 s0 "Do you have a VGA display on which you want to use 60 rows(Y/N)? "
  70.  :if is0,y sets s1 "%s1;if !dt videobios 38;!cls" if !dt videobios 38;!cls
  71.  lput "\r\nPath names must use forward rather than backward slashes  for  path separators.\r\n"
  72.  lput "\r\nThe path into which received files are placed  should  end with a path separator"
  73.  lput "\r\n(a forward slash) to prevent the remote site from downloading files  into  other"
  74.  lput "\r\ndirectories.\r\n\n" set s9 nul p?0
  75.  while !? accept dirrx "Path into which received files are placed(e.g. c:/arc/): " sets s0 %dirrx%s9 gosub sepreq.%lib/sinit.t
  76.  lput "\r\nThe path from which to send files must not end with  a path separator character.\r\n\n"
  77.  p?0 while !? accept dirsx "Path from which to send files(e.g. c:/arc): " sets s0 %dirsx/nul gosub allreq.%lib/sinit.t
  78.  lput "\r\nThe path for session capture files must not end with a path separator character.\r\n\n"
  79.  p?0 while !? accept n9 "Path for session capture files(e.g. c:/zcomm/sessions): " sets s0 %n9/nul gosub allreq.%lib/sinit.t
  80.  lput "\r\nThe path for temporary work files must not end with a  path separator character."
  81.  lput "\r\nIt is used for small work files and to download compressed network  mail  files."
  82.  lput "\r\nA RAM disk should be considered for this if you have one of sufficient size.\r\n\n"
  83.  p?0 while !? accept tmp "Path for temporary work files(e.g. g:/scratch): " sets s0 %tmp/nul gosub allreq.%lib/sinit.t
  84.  lput "\r\nThe path from which messages are uploaded and in which  lists  of  files  to  be"
  85.  lput "\r\nuploaded and lists of files to be downloaded may be placed must not end  with  a"
  86.  lput "\r\npath separator.\r\n\n"
  87.  p?0 while !? accept n8 "Path for msgs and lists of files(e.g. c:/out): " sets s0 %n8/nul gosub allreq.%lib/sinit.t
  88.  lput "\r\nThe path in which listings of files at bulletin boards are placed must  not  end"
  89.  lput "\r\nwith a path separator.  The  list  of  files  at GENIE is read from this path to"
  90.  lput "\r\ndetermine the most recent file known to you, and to estimate file transfer  time"
  91.  lput "\r\nand cost for the list you requested.\r\n\n"
  92.  p?0 while !? accept n7 "Path for listings of files(e.g. c:/lst): " sets s0 %n7/nul gosub allreq.%lib/sinit.t
  93.  lput "\r\nThe path in which captured file directory listings for files at GENIE which  are"
  94.  lput "\r\nmore recent than the most recent file known to you must not  end  with  a   path"
  95.  lput "\r\nseparator.\r\n\n"
  96.  p?0 while !? accept n6 "Path for new GENIE file directory entries(e.g. c:/libmenu): " sets s0 %n6/nul gosub allreq.%lib/sinit.t
  97.  lput "\r\nThe picture file captures the current screen image when Alt-Z is pressed or when"
  98.  lput "\r\na 'picture' command is issued. ANSISCAN may be used to generate  a text file for"
  99.  lput "\r\neach 4000-byte screen image within such  a file. The picture file may be used to"
  100.  lput "\r\nrecord and report problems in file transfer operations.\r\n\n"
  101.  p?0 while !? accept picture "Picture file(e.g. d:/ansi/capture.bin): " sets s0 %picture gosub allreq.%lib/sinit.t
  102.  lput "\E[m\E[2JBefore reporting a problem to anyone, review the messages very carefully in your"
  103.  lput "\r\nZCOMM or Pro-Yam documentation.  Messages with LSR(line status register)  values"
  104.  lput "\r\ngenerally indicate a problem with line noise, signal strength, modem clocking or"
  105.  lput "\r\ncomputer response time to interruptions.  Line noise is usually the fault of the"
  106.  lput "\r\nphone company.  Signal strength may  be badly impaired by sharing the phone line"
  107.  lput "\r\nwith a cheap telephone.  It  is  not  unusual  for local phone companies to have"
  108.  lput "\r\nproblems on the lines which connect exchanges within local calling areas;  these"
  109.  lput "\r\nconnections often lack some of the checks and controls used with long  distance."
  110.  lput "\r\nClocking problems between modems generally occur only when one of the modems  is"
  111.  lput "\r\nvery cheap or very old.  Modems  have  very different tolerances for line noise."
  112.  lput "\r\nWhat one modem finds to be unacceptable may be quite alright for another. Analog"
  113.  lput "\r\nsignal descriminators tend to be more noise resistant than digital ones.  An LSR"
  114.  lput "\r\nvalue of 02 indicates a computer response time problem,  which  may  result from"
  115.  lput "\r\nTSR programs loaded into storage, from use of a fast modem on a slow machine, or"
  116.  lput "\r\nfrom multitasking.  The latter two reasons can generally be dealt with by use of"
  117.  lput "\r\na serial port with an NS16550AFN comm chip.\r\n"
  118.  lput "\r\nProblems which are not accompanied by messages with LSR values are generally due"
  119.  lput "\r\nto problems which are accompanied by messages with LSR values at the  other  end"
  120.  lput "\r\nof the phone line, or to a mismatch in protocols, such  as  attempting a  Zmodem"
  121.  lput "\r\nreceive while the BBS is doing an Xmodem send, or  to  home-grown,  altered,  or"
  122.  lput "\r\ndefective programming for file transfer at the BBS.\r\n"
  123.  gosub ak
  124.  lput "\r\nBefore deciding to capture the screen on every upload or on every download, keep"
  125.  lput "\r\nin mind that 4000 bytes of disk space are required for every 80x25 screen.\r\n"
  126.  lput "\r\nThe command\r\n"
  127.  lput "\r\n    set oncloserx \042@picture\042\r\n"
  128.  lput "\r\nwill capture your screen at the end of every download. For batch downloads, this"
  129.  lput "\r\ncaptures the screen at the end of every file within the batch.\r\n"
  130.  lput "\r\nThe command\r\n"
  131.  lput "\r\n    set onclosetx \042@picture\042\r\n"
  132.  lput "\r\nwill capture your screen at the end of every upload.  For  batch  uploads,  this"
  133.  lput "\r\ncaptures the screen at the end of every file within the batch.\r\n\n"
  134.  set s0 x while !Js0,yn acceptl1 s0 "Capture Screen on Every Download(y/n)? "
  135.  set oncloserx "" if is0,y set oncloserx "@picture"
  136.  set s0 x while !Js0,yn acceptl1 s0 "Capture Screen on Every Upload(y/n)? "
  137.  set onclosetx "" if is0,y set onclosetx "@picture"
  138.  sets z0 ProYam;ife dS sets z0 " ZCOMM"
  139.  lput "\r\nThe command history file allows you to scroll backward and forward  through  any"
  140.  lput "\r\npreviously issued commands.  The file is less than 17K in size and should reside"
  141.  lput "\r\non a RAM disk(VDISK). It must not be deleted while %z0 is active; deleting it"
  142.  lput "\r\nwhile %z0  is  active  may  cause the disk space(clusters) for the file to be"
  143.  lput "\r\nlost.  Refer  to the /F option of CHKDSK in your DOS manual for a description of"
  144.  lput "\r\nthe procedure to recovery such space if you do this.  Do  not attempt to use the"
  145.  lput "\r\n/F option of CHKDSK under a DOS multitasker(such as Desqview).  Simply hit enter"
  146.  lput "\r\nto avoid keeping the history.\r\n\n"
  147.  p?0 while !? accept s3 "Command history log(e.g. g:/history.cmd): " sets s0 %s3 gosub cndreq.%lib/sinit.t
  148.  lput "\r\nFor each of the following, simply hit enter to avoid keeping the log.\r\n\n"
  149.  p?0 while !? accept plog "File transfer performance log(e.g. c:/log/xfer.log): " sets s0 %plog gosub cndreq.%lib/sinit.t
  150.  lput "\r\nFor Pro-Yam users and registered users of ZCOMM, the call log will keep track of"
  151.  lput "\r\neach call made and the  length of time  for  which  you  were  connected. Simply"
  152.  lput "\r\nhit enter to avoid keeping the log.  Hit  enter if you are using an unregistered"
  153.  lput "\r\ncopy of ZCOMM.\r\n\n"
  154.  p?0 while !? accept calllog "Call log(e.g. c:/log/call.log): " sets s0 %calllog gosub cndreq.%lib/sinit.t
  155.  lput "\r\nFor Pro-Yam users and registered users  of  ZCOMM,  the  received file log  will"
  156.  lput "\r\nrecord all files received using protocol file  transfer  and  all  capture  file"
  157.  lput "\r\nactivity. Simply hit enter to avoid keeping the log.  Hit enter if you are using"
  158.  lput "\r\nan unregistered copy of ZCOMM.\r\n\n"
  159.  p?0 while !? accept rxlog "Received file log(e.g. c:/log/rx.log): " sets s0 %rxlog gosub cndreq.%lib/sinit.t
  160.  lput "\r\nFor Pro-Yam users and registered users of ZCOMM,  the transmitted file log  will"
  161.  lput "\r\nrecord all files sent using a protocol and all files opened for reading, such as"
  162.  lput "\r\nfor inspection by a script file. Simply hit enter to avoid keeping the log.  Hit"
  163.  lput "\r\nenter if you are using an unregistered copy of ZCOMM.\r\n\n"
  164.  p?0 while !? accept txlog "Transmitted file log(e.g. c:/log/tx.log): " sets s0 %txlog gosub cndreq.%lib/sinit.t
  165.  lput \r\n;set s0 ""
  166.  while !Js0,yn acceptl1 s0 "Delete incomplete files received with a protocol(y/n)? "
  167.  ife is0,n sets mconnect "@ena -!d;z pr0";else sets mconnect "@ena -!d;z pr1"
  168.  if f%ZCUSER.usr echo "Replacing '%lib/%ZCUSER.usr' for future reference."
  169.  else echo "Creating '%lib/%ZCUSER.usr' for future reference."
  170.  kill;pv0 create -y %lib/%ZCUSER.usr;setc z4 \042
  171.  echof "\T %s1"
  172.  echof "\T set n0 %z4%n0%z4 set n1 %z4%n1%z4 set n2 %z4%n2%z4"
  173.  echof "\T set n3 %z4%n3%z4 set n4 %z4%n4%z4 set n5 %z4%n5%z4"
  174.  echof "\T set n6 %z4%n6%z4"
  175.  echof "\T set n7 %z4%n7%z4"
  176.  echof "\T set n8 %z4%n8%z4"
  177.  echof "\T set n9 %z4%n9%z4"
  178.  echof "\T set l %z4%l%z4; set m %z4%m%z4"
  179.  echof "\T set mprefix %z4%s2%z4"
  180.  echof "\T set answerback %z4%z4"
  181.  echof "\T set dircx %z4%z4"
  182.  echof "\T set dirsx %z4%dirsx%z4"
  183.  echof "\T set dirrx %z4%dirrx%z4"
  184.  echof "\T set tmp %z4%tmp%z4"
  185.  echof "\T set plog %z4%plog%z4"
  186.  echof "\T set calllog %z4%calllog%z4"
  187.  echof "\T set rxlog %z4%rxlog%z4"
  188.  echof "\T set txlog %z4%txlog%z4"
  189.  echof "\T set mconnect %z4%mconnect%z4"
  190.  echof "\T set picture %z4%picture%z4"
  191.  echof "\T set oncloserx %z4%oncloserx%z4"
  192.  echof "\T set onclosetx %z4%onclosetx%z4"
  193.  echof "\T set s3 %z4%s3%z4 : history"
  194.  nolog close;return
  195.